﻿<Serializable()> _
Public Class EsimuladorCta

#Region "           Atributos                       "
    Private _idEmpresa As Int32
    Private _idProyecto As Int32
    Private _idEtapa As Int32
    Private _idProforma As Int32
    Private _idSimularoCta As Int32
    Private _precioInmueble As Double
    Private _ctaInicial As Double
    Private _saldoFinanciar As Double
    Private _entidadFin As EentidadFin
    Private _descEntidadFin As String
    Private _plazoAño As Int32
    Private _tasaInteresAnual As Double
    Private _tasaInteresMensual As Double
    Private _valorCta As Double

    Private _miVivienda As Int32
    Private _plazoAñoBono As Int32
    Private _montoBono As Double
    Private _tasaInteresActiva As Double
    Private _valorCtaBono As Double
    Private _ctaNeta As Double

    Private _idUsuario As Int32
#End Region

#Region "           Propiedades                     "
    Public Property idEmpresa() As Int32
        Get
            Return _idEmpresa
        End Get
        Set(ByVal value As Int32)
            _idEmpresa = value
        End Set
    End Property
    Public Property idProyecto() As Int32
        Get
            Return _idProyecto
        End Get
        Set(ByVal value As Int32)
            _idProyecto = value
        End Set
    End Property
    Public Property idEtapa() As Int32
        Get
            Return _idEtapa
        End Get
        Set(ByVal value As Int32)
            _idEtapa = value
        End Set
    End Property
    Public Property idProforma() As Int32
        Get
            Return _idProforma
        End Get
        Set(ByVal value As Int32)
            _idProforma = value
        End Set
    End Property
    Public Property idSimularCta() As Int32
        Get
            Return _idSimularoCta
        End Get
        Set(ByVal value As Int32)
            _idSimularoCta = value
        End Set
    End Property
    Public Property precioInmueble() As Double
        Get
            Return _precioInmueble
        End Get
        Set(ByVal value As Double)
            _precioInmueble = value
        End Set
    End Property
    Public Property ctaInicial() As Double
        Get
            Return _ctaInicial
        End Get
        Set(ByVal value As Double)
            _ctaInicial = value
        End Set
    End Property
    Public Property saldoFinanciar() As Double
        Get
            Return _saldoFinanciar
        End Get
        Set(ByVal value As Double)
            _saldoFinanciar = value
        End Set
    End Property
    Public Property entidadFinanciar() As EentidadFin
        Get
            Return _entidadFin
        End Get
        Set(ByVal value As EentidadFin)
            _entidadFin = value
        End Set
    End Property
    Public Property descEntidadFin() As String
        Get
            Return _descEntidadFin
        End Get
        Set(ByVal value As String)
            _descEntidadFin = value
        End Set
    End Property
    Public Property plazoAño() As Int32
        Get
            Return _plazoAño
        End Get
        Set(ByVal value As Int32)
            _plazoAño = value
        End Set
    End Property
    Public Property tasaInteresAnual() As Double
        Get
            Return _tasaInteresAnual
        End Get
        Set(ByVal value As Double)
            _tasaInteresAnual = value
        End Set
    End Property
    Public Property tasaInteresMensual() As Double
        Get
            Return _tasaInteresMensual
        End Get
        Set(ByVal value As Double)
            _tasaInteresMensual = value
        End Set
    End Property
    Public Property valorCta() As Double
        Get
            Return _valorCta
        End Get
        Set(ByVal value As Double)
            _valorCta = value
        End Set
    End Property

    Public Property miVivienda() As Int32
        Get
            Return _miVivienda
        End Get
        Set(ByVal value As Int32)
            _miVivienda = value
        End Set
    End Property
    Public Property plazoAñoBono() As Int32
        Get
            Return _plazoAñoBono
        End Get
        Set(ByVal value As Int32)
            _plazoAñoBono = value
        End Set
    End Property
    Public Property montoBono() As Double
        Get
            Return _montoBono
        End Get
        Set(ByVal value As Double)
            _montoBono = value
        End Set
    End Property
    Public Property tasaInteresActiva() As Double
        Get
            Return _tasaInteresActiva
        End Get
        Set(ByVal value As Double)
            _tasaInteresActiva = value
        End Set
    End Property
    Public Property valorCtaBono() As Double
        Get
            Return _valorCtaBono
        End Get
        Set(ByVal value As Double)
            _valorCtaBono = value
        End Set
    End Property
    Public Property ctaNeta() As Double
        Get
            Return _ctaNeta
        End Get
        Set(ByVal value As Double)
            _ctaNeta = value
        End Set
    End Property

    Public Property idUsuario() As Int32
        Get
            Return _idUsuario
        End Get
        Set(ByVal value As Int32)
            _idUsuario = value
        End Set
    End Property
#End Region

#Region "           Propiedades Avanzadas           "

#End Region

#Region "           Contructores                    "
    Public Sub New()

    End Sub
    Public Sub New(ByVal idSimularoCta As Int32, ByVal idProforma As Int32, ByVal precioInmueble As Double, ByVal ctaInicial As Double, _
                   ByVal saldoFinanciar As Double, ByVal idEntidadFin As Int32, ByVal plazoAño As Int32, ByVal tasaInteresAnual As Double, _
                   ByVal tasaInteresMensual As Double, ByVal valorCta As Double, ByVal miVivienda As Int32, ByVal plazoAñoBono As Int32, _
                   ByVal montoBono As Double, ByVal tasaInteresActiva As Double, ByVal valorCtaBono As Double, ByVal ctaNeta As Double, _
                   ByVal idUsuario As Int32)
        Me.idSimularCta = idSimularCta
        Me.idProforma = idProforma
        Me.precioInmueble = precioInmueble
        Me.ctaInicial = ctaInicial
        Me.saldoFinanciar = saldoFinanciar
        Me.entidadFinanciar = New EentidadFin
        Me.entidadFinanciar.idEntidadFin = idEntidadFin
        Me.descEntidadFin = descEntidadFin
        Me.plazoAño = plazoAño
        Me.tasaInteresAnual = tasaInteresAnual
        Me.tasaInteresMensual = tasaInteresMensual
        Me.valorCta = valorCta
        Me.miVivienda = miVivienda
        Me.plazoAñoBono = plazoAñoBono
        Me.montoBono = montoBono
        Me.tasaInteresActiva = tasaInteresActiva
        Me.valorCtaBono = valorCtaBono
        Me.ctaNeta = ctaNeta
        Me.idUsuario = idUsuario
    End Sub
    Public Sub New(ByVal idSimularoCta As Int32, ByVal idProforma As Int32, ByVal precioInmueble As Double, ByVal ctaInicial As Double, _
                   ByVal saldoFinanciar As Double, ByVal idEntidadFin As Int32, ByVal descEntidadFin As String, ByVal plazoAño As Int32, _
                   ByVal tasaInteresAnual As Double, ByVal tasaInteresMensual As Double, ByVal valorCta As Double, ByVal miVivienda As Int32, _
                   ByVal plazoAñoBono As Int32, ByVal montoBono As Double, ByVal tasaInteresActiva As Double, ByVal valorCtaBono As Double, _
                   ByVal ctaNeta As Double, _
                   ByVal idUsuario As Int32)
        Me.idSimularCta = idSimularCta
        Me.idProforma = idProforma
        Me.precioInmueble = precioInmueble
        Me.ctaInicial = ctaInicial
        Me.saldoFinanciar = saldoFinanciar
        Me.entidadFinanciar = New EentidadFin(idEntidadFin, descEntidadFin)
        Me.descEntidadFin = descEntidadFin
        Me.plazoAño = plazoAño
        Me.tasaInteresAnual = tasaInteresAnual
        Me.tasaInteresMensual = tasaInteresMensual
        Me.valorCta = valorCta
        Me.miVivienda = miVivienda
        Me.plazoAñoBono = plazoAñoBono
        Me.montoBono = montoBono
        Me.tasaInteresActiva = tasaInteresActiva
        Me.valorCtaBono = valorCtaBono
        Me.ctaNeta = ctaNeta
        Me.idUsuario = idUsuario
    End Sub
#End Region

End Class
